home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1997 May / PC Plus Super CD Issue 127 (May 1997).iso / handson / lrnpasc / funcproc / fp1.dfm / fp1.txt
Encoding:
Text File  |  1997-01-31  |  1.3 KB  |  70 lines
  1. object Form1: TForm1
  2.   Left = 200
  3.   Top = 99
  4.   Width = 435
  5.   Height = 300
  6.   Caption = 'TRY OUT 2 PROCEDURES AND 1 FUNCTION'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   TextHeight = 16
  13.   object Label1: TLabel
  14.     Left = 24
  15.     Top = 40
  16.     Width = 79
  17.     Height = 16
  18.     Caption = 'Original text'
  19.   end
  20.   object Label2: TLabel
  21.     Left = 24
  22.     Top = 80
  23.     Width = 90
  24.     Height = 16
  25.     Caption = 'Resulting text'
  26.   end
  27.   object Edit1: TEdit
  28.     Left = 120
  29.     Top = 32
  30.     Width = 297
  31.     Height = 24
  32.     TabOrder = 0
  33.     Text = 'Enter some TEXT here. Or use This Text!'
  34.   end
  35.   object Edit2: TEdit
  36.     Left = 120
  37.     Top = 72
  38.     Width = 297
  39.     Height = 24
  40.     TabOrder = 1
  41.   end
  42.   object Button1: TButton
  43.     Left = 24
  44.     Top = 112
  45.     Width = 369
  46.     Height = 33
  47.     Caption = 'procedure proc1( s : string );'
  48.     TabOrder = 2
  49.     OnClick = Button1Click
  50.   end
  51.   object Button2: TButton
  52.     Left = 24
  53.     Top = 152
  54.     Width = 369
  55.     Height = 33
  56.     Caption = 'procedure proc2( var s : string );'
  57.     TabOrder = 3
  58.     OnClick = Button2Click
  59.   end
  60.   object Button3: TButton
  61.     Left = 24
  62.     Top = 192
  63.     Width = 369
  64.     Height = 33
  65.     Caption = 'function Func1( s : string ) : string;'
  66.     TabOrder = 4
  67.     OnClick = Button3Click
  68.   end
  69. end
  70.